home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Canadian & World Encyclopedia 1998
/
The Canadian & World Encyclopedia 1998 - Disc 2.iso
/
pc
/
pb
/
profile.dir
/
00049_Script_~issues text
< prev
next >
Wrap
Text File
|
1997-07-29
|
620b
|
30 lines
on mousedown
if the timer > 90 then shift_down
end
on mouseUp
waitcursor 14
global qtrep_return
set obj_key = the framelabel
global iss_obj
put "tra_"&item 1 of obj_key & item 2 of obj_key into iss_obj
set the text of field "issue text" to the text of field iss_obj
-- put the text of field iss_obj
puppetsprite 35, false
global issue_text,sub_open
set issue_text = FALSE
set sub_open = 1
puppettransition 51,01,16
go to qtrep_return
see_sprite([37,38,39,40,41],true)
cursoroff 14
handcurse 38
handcurse 40
handcurse 41
updatestage
end